Проигрыватель содержимого памяти "Тшу-у-у" с записью идентификатора

God Mode:

Debugger				; Открыть отладчик для ввода данных
Dec					; Переключить отображение чисел в десятичный режим
Go To 23613				; Переместиться по памяти на нужный адрес
23613 <-- 65364				; Установить накладку на вершину SP-столбика для корректного возврата в BASIC

IX <-- 29999				; Адрес откуда считать -1 для идентификатора
DE <-- 1025				; Длина блока +1 байт для идентификатора
BC <-- 15134				; С - микс звука (+16), сигнала "Вкл" (+8) с цветом полоски (6) B - Неактуальная задержка для продолжения остатка синхроимпульса
AF <-- 65280				; Байт идентификатора х256 (0-заголовок 255-данные)
SP <-- 65364				; Подготовка SP к возврату в BASIC после выполнения программы
PC <-- 29000				; Установить Стрелочку на запускаемую подпрограмму

29000 <-- 243 205 250 4 251 195 162 18	; Вспомогательная программа включения DI/EI режима

Go To 30000				; Переместиться по памяти на нужный адрес
30000 <-- 255 255 255 255 255 255 255 255	; Мелодия
30128 <-- 255 255 255 255 255 255 255 255
30256 <-- 255 255 255 255 255 255 255 255
30320 <-- 255 255 255 255 255 255 255 255
30384 <-- 255 255 255 255 255 255 255 255
30512 <-- 255 255 255 255 255 255 255 255
30576 <-- 255 255 255 255 255 255 255 255
30640 <-- 255 255 255 255 255 255 255 255
30704 <-- 255 255 255 255 255 255 255 255
30832 <-- 255 255 255 255 255 255 255 255
30896 <-- 255 255 255 255 255 255 255 255
Trace					; Выйти из отладчика и запустить программу

Assembler EmuzWin:

	ORG 29000

	DI		; Запретить прерывания для предотвращения искажения мелодии
	LD IX, 30000-1	; Адрес откуда считать -1 для идентификатора
	LD DE, 1024+1	; Длина блока +1 байт для идентификатора
	LD B, 59	; Задержка для продолжения остатка синхроимпульса (в данном случае не актуально)
	LD C, 30	; Микс звука (+16), сигнала "Вкл" (+8) с цветом полоски (6)
	LD A, 255	; Байт идентификатора (0-заголовок 255-данные)
	CALL 1274	; Вызвать фрагмент подпрограммы последовательного проигрывания битов
	EI		; Восстановить прерывания для работы клавиатуры
	RET		; Выход в BASIC
